home *** CD-ROM | disk | FTP | other *** search
/ Item MB Quick & Easy 2.0 / Item MB Quick & Easy 2.0.iso / mbfacad / mb33732.lsp < prev    next >
Text File  |  1998-03-15  |  2KB  |  81 lines
  1. ;=============337.32 ADAPTERFLANSCH UNIVERSAL
  2.  
  3. (EAITDBL "0033732")
  4. (EAITmsg "mb_mld10" "\n" "002" nil) (princ "........") (princ EAITnrx) (princ "\n")
  5. (princ)
  6.  
  7. (defun C:33732V1 ( / P1 Wi)
  8.    (EAITDBL "0033732")
  9.    (princ (strcat "\n\n" EAITbez1))
  10.      (EAITvari)
  11.      (EAITvars)
  12.      (setvar "ORTHOMODE" 0)
  13.      (EAITbpt nil nil nil)
  14.      (setq P1 (getpoint))
  15.      (if (= P1 nil)(setq P1 (EAITrpt)))
  16.      (setvar "OSMODE" 0)
  17.      (setvar "ORTHOMODE" 1)
  18.    (EAITmsg "mb_mld10" "\n" "003" nil)            ;Drehwinkel
  19.      (command EAITege (strcat EAITpfn "33732V1") P1 "" "" EAITofkei pause)
  20.  
  21.      (setq Wi (EAITbw))
  22.      (command EAITege (strcat EAITpfn "EAITinfo") (polar P1 (+ Wi (EAITgib 50)) 32) "" "" ""
  23.                     EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
  24.      )
  25.  
  26.      (EAITvarz2)
  27.      (princ)
  28.  
  29. );defun V1
  30.  
  31.  
  32. (defun C:33732V2 ( / P1 Wi)
  33.    (EAITDBL "0033732")
  34.    (princ (strcat "\n\n" EAITbez1))
  35.      (EAITvari)
  36.      (EAITvars)
  37.      (setvar "ORTHOMODE" 0)
  38.      (EAITbpt nil nil nil)
  39.      (setq P1 (getpoint))
  40.      (if (= P1 nil)(setq P1 (EAITrpt)))
  41.      (setvar "OSMODE" 0)
  42.      (setvar "ORTHOMODE" 1)
  43.    (EAITmsg "mb_mld10" "\n" "003" nil)            ;Drehwinkel
  44.      (command EAITege (strcat EAITpfn "33732V2") P1 "" "" EAITofkei pause)
  45.  
  46.      (setq Wi (EAITbw))
  47.      (command EAITege (strcat EAITpfn "EAITinfo") (polar P1 (+ Wi (EAITgib 50)) 32) "" "" ""
  48.                     EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
  49.      )
  50.  
  51.      (EAITvarz2)
  52.      (princ)
  53.  
  54. );defun V2
  55.  
  56. (defun C:33732S1 ( / P1 Wi)
  57.    (EAITDBL "0033732")
  58.    (princ (strcat "\n\n" EAITbez1))
  59.      (EAITvari)
  60.      (EAITvars)
  61.      (setvar "ORTHOMODE" 0)
  62.      (EAITbpt nil nil nil)
  63.      (setq P1 (getpoint))
  64.      (if (= P1 nil)(setq P1 (EAITrpt)))
  65.      (setvar "OSMODE" 0)
  66.      (setvar "ORTHOMODE" 1)
  67.    (EAITmsg "mb_mld10" "\n" "003" nil)            ;Drehwinkel
  68.      (command EAITege (strcat EAITpfn "33732S1") P1 "" "" EAITofkei pause)
  69.  
  70.      (setq Wi (EAITbw))
  71.      (command EAITege (strcat EAITpfn "EAITinfo") (polar P1 (+ Wi (EAITgib 297)) 21) "" "" ""
  72.                     EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
  73.      )
  74.  
  75.      (EAITvarz2)
  76.      (princ)
  77.  
  78. );defun S1
  79.  
  80. (princ)
  81.